<%@LANGUAGE="VBSCRIPT"%> <% Dim immagini__MMColParam immagini__MMColParam = "1" If (Request.QueryString("ID") <> "") Then immagini__MMColParam = Request.QueryString("ID") End If %> <% Dim immagini Dim immagini_numRows Set immagini = Server.CreateObject("ADODB.Recordset") immagini.ActiveConnection = MM_torreggiani_STRING immagini.Source = "SELECT ID, titolo, foto, css01, sezione, sottosezione, data FROM news WHERE ID = " + Replace(immagini__MMColParam, "'", "''") + "" immagini.CursorType = 0 immagini.CursorLocation = 2 immagini.LockType = 1 immagini.Open() immagini_numRows = 0 %>

:: <%=(immagini.Fields.Item("titolo").Value)%> [ <%=(immagini.Fields.Item("data").Value)%> ] :: sezione [ <%=(immagini.Fields.Item("sezione").Value)%> ] :: sottosezione [ <%=(immagini.Fields.Item("sottosezione").Value)%>  ] <%if (immagini.Fields.Item("css01").Value) = "Grigio" then%> <%elseif (immagini.Fields.Item("css01").Value) = "Azzurro" then%> <%elseif (immagini.Fields.Item("css01").Value) = "Verde" then%> <%else%> <%end if%> <<%=(immagini.Fields.Item("foto").Value)%> align=center border=0"> <%if (immagini.Fields.Item("css01").Value) = "Grigio" then%> <%elseif (immagini.Fields.Item("css01").Value) = "Azzurro" then%> <%elseif (immagini.Fields.Item("css01").Value) = "Verde" then%> <%else%> <%end if%>

<% immagini.Close() Set immagini = Nothing %>